home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BMUG PD-ROM BV3
/
BMUG PD-ROM Version BV3 (CDRM1097900).iso
/
HyperCard
/
Business
/
Seconds to Time
/
background_2602.txt
< prev
next >
Wrap
Text File
|
1990-02-10
|
5KB
|
218 lines
-- background: 2602 from stack: in
-- bmap block id: 3544
-- flags: 0000
-- background id: 0
-- name:
-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=143 top=126 right=145 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 33
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Seconds
----- HyperTalk script -----
-- part 2 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=211 top=126 right=145 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To time
----- HyperTalk script -----
on mouseUp
get field "Seconds"
divide it by 60
put trunc of it into field "one"
get field "Seconds"
divide it by 60
subtract value of field "one" from it
multiply it by .6
put it into field "two"
set NumberFormat to 0.00
add value of field "one" to field "two"
Hide field "one"
end mouseUp
-- part 3 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=491 top=27 right=39 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: one
----- HyperTalk script -----
Hide field "one"
-- part 7 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=275 top=126 right=145 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: two
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=85 right=105 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
go to card id 5341 of stack "Home"
end mouseUp
-- part 9 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=143 top=233 right=252 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 33
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: a
-- part 10 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=275 top=233 right=252 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: c
-- part 11 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=222 top=298 right=310 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: b
-- part 12 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=198 top=233 right=253 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To seconds
----- HyperTalk script -----
on mouseUp
get field "a"
put trunc of it into field "b"
Multiply field "b" by 60
get field "a"
subtract trunc of field "a" from it
if it < .59 then
multiply it by 100
put it into field "c"
set NumberFormat to 0
add value of field "b" to field "c"
Hide field "b"
else if it > .59 then
set lockScreen to True
answer "Seconds in 'Time' must be less than .60" with "Try again"
if it is "Try again" then
exit mouseUp
set lockScreen to False
end if
end if
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=232 top=283 right=303 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
Show field "help"
wait 13 seconds
Hide field "help"
end mouseUp
-- part 15 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=118 top=23 right=285 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: help